J 



I 



SElTE 1 

GENERAL AUTOMATION, INC, ALL RJGHTS RESERVED 

2 *******^***,**ik- «•******* **************************** 

3 * 

4 * PROGRAM NAME FpH-21 

5 * 

6 * MODEL NUMBER 8F02i 

7 * 

8 * PURPOSE FORTRAN PHASE-21 

9 * 

Ifl * PROGRAMMER WICK WALLMANN 

11 * 

12 ***************** REVISION LIST ************** 

13 * 

14 * RV DAT,- SCO JY REASON FOR CHANGE 

15 * -. -^_.»»- # ----^---_---.- w - 

16 * 

17 * 01 11/16/70 NONE <PH INITIAL RELEASE 

18 * 

19 *********** s- *************************************** 

20 *******#**+*****#***#***************************** 

2i ;iqng ipx Fortran ** compilation errors 

'22 ********** *****#*************♦******************** 

23 *STATUS-VERSI0N 1, MOT) I F I CAT ION D 

24 * 

25 *FUNCTlON/ 'iPERATION- 

26 * * LISTS ANY ERROR "HAT WERE DETECTED DURING 
?7 * r H E COMPILATION PROCESS, 

28 * * REARRANGING THE STATEMENT StRJNG IF THERE 

2«5 * WERE NO ERRORS DETECTED, 

30 * 

31 *ENTRY pOP-ITS- 

32 * * NEQ PHASE IS LOADED BY PHASE 2C VIA ROLRX:, 

33 * EXECUTION IS BEGUN A I LABEL NEQ 

34 * 

35 *INPUT- 

3ft * * STATEMENT SIR I NO 

37 * * SYMBOL TaBLE 

38 * * FCOM 

39 * 

40 *0'UTPUT» 

41 * * PRINTED ERROR MESSAGES JF ANY 

42 * * STATEMENT STRING 

43 * * SYMBOL TmBLE 

44 * * FCOM 

45 * 

46 * * SUBROUTINES 

47 * ROLR), 

48 * 

49 *EXITS- 

50 * * NORMAL- 

*>1 * PHASE 22 IS LOADEU BY PHASE 21 VIA 

P 2 * ROLRX AND CONTROL IS MASSED TO IT. 

53 * * ERRO ; '- 

«54 * 00 ERRORS ARE DETECTEU JN THIS PHASE 

5<=; * : Jr j L Y THAT THEY ARE WELOUNIZED AND 

56 * PROCESSED ACCORDINGLY, THE EXIT IS THE 

57 * SAME AS NORMAL. 

58 * 

59 *TABLES/WORK AREAS- 



SEiTE 



60 
61 
62 
63 
64 
65 
66 
67 
68 
6° 
70 
T 
72 
73 



75 
76 
77 
7 8 
79 
80 
^31 
32 
83 
34 

35 
86 

87 
88 
89 
90 
* 91 
92 
93 
94 

95 
96 
9 7 
98 
9 C > 

101 
102 
103 
104 
10 c > 
106 
10 7 
10 8 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 



* * STAT 

* * SYMB 

* • PCOM 

* * Bur* 

* outp 

* 

*A t tRIBuTE! 

* 

* NOTES-NONi 

,„**■**•*■*#** ****** 



SMEN" STRING 
DL TABLE 

120* A 120 WBRD MESSAGE BUILDING AND 
Ji'TlNQ AREA, 

;-NONE 



# **.*.*.* *.***********#*•************** 




1 AND FORTRAN EQUATES 



MGMRY 

PHSIZ 

OVERL 

FC0M 

PHNTB 

ROLRX 

AREA 

PRINT 



• 

SOFS 
EOFS 
SOFST 

sofns 

SOFXT 
30FGT 
EOFST 
COMON 
CSIZE 
ERROR 

fsjame 

SORF 
CCWD 

* 

* 
* 



iocs ess 

* SI 

* 

DFCNT BSS 

* 

LCOMN BSS 

* 

ICCER BSS 

BSS 



L : Q 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

ORG 

BSS 

ess 

BSS 
OSS 
BSS 
BSS 
3SS 
BSS 
BSS 
BSS 



BSS 
BSS 

BSS 
BSS 



4*320 
MEMRY-PHSIZ 

OVERL-22 

FCOM-56 

PMNTB-50 



MAXIMUM CORE SIZE 
MAXIMUM PHASE SIZE 
PHASES 2-29 START 
FOKTHAN COMM, TABLE 
PHAS6 TABLE 
1NIERPHASE CALL 

OVERL + 3*32ii*lOU P*INT DATA ADDRESS. 

AREA+1 P R iNT ENTRANCE 



COM 



BIT 

BIT 



1? 
14 



BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
SIT 



J.J 



FORTRAN cgMM AREA 

START OH STRING 
END OF STRING 
START OF SYMBOL TABLE 
START 0^ NON*STMNT NOS, 
SIZfc OF~WORK AREA 
SIZE QF CONSTANT AREA 
END OF SYMBOL TABLE 
HIGH COKE COMMON ADDR 
SIZE QF'CUMMQN 
OVERLAP ERROR 

OVERLAP fcRROR 

:)THER feRMOK 
PROGRAM NAME WD 1 
PROGRAM NAME WD 2 
SU8H («J OR FUNC (+> 
CONTROL CARD WD 
TRANSFEK TRACE 

. ARITHMETIC TRACE 
EXTENDED PRECISION 
LIST SYMBOL TABLE 
LIST SUBPROGRAM NAMES 
LIST SOURCE PROGRAM 
ONE WURU INTEGERS 
IOCS CONTROL CARD WORD 



£ PHASE ONE POR BIT PaT t E r NS 

1 DEFINE MLE COUNT 

2 INSKEL COMMON 

2 IOCS CONTROL CARD ERROR 

SYSTEM LOADER USE 



SE1TE 



III * END OF FORTRAN COMMUNICATION 

122 * AREA 

i?3 **w****i******»**************»******************** 

1P4 * -HE SWITCHES USfcO IN PHASE 21 FOLLOW 

125 * IF POSITIVE, THfc SWITCH IS TRANSFER 

126 * IF ZERO. THE SWJTUH IS NORMAL N 
1?7 * SWITCH OJTFL 

1^8 * N HEADER NUT PHINTED 

129 * T HEADER ALREAUY PRINTED 

130 * 

131 * 

133 * OJTPUT S'-'RING ERRUR MESSAGES 

134 * PHASE 

135 * 

1 36 ** **************.***#*** ********** ***************** 

13 7 i1 D NG (IPX FORTRAN ** C0MPHA T I0N ERRORS 

138 ORG OVERL PHASE ENTRY 

13" NEU B S C L ENT ENTRY, GU INITIALIZE 

40 * 

^142 WDCNT DC *•* ^ 0RD COl J NT f.2!LE! Rl J! T > INS 
143 

144 * 



BUF ' He *•* START Oh OUTPUT AREA 



^46 * INITIALIZE TRANSFfeRVECTOR 

147 E! ,' LDX L3 ZERO LOAD WOKK AREA POINTER 

He STX L3 HEO S AVE FOR RE- JNIT I ALIZAT I QN 

150 I CHECK FOR OVERLAP ERROR 

*151 uD L ERROR 

£52 DSC L L2020.E BR IF OVERLAP ERROR 

154 * H A KE 3lZ~ OP WORK AREA EVEN ADDRESS 

f 5 s ID L SQFXT LOAD WORK AREA STaRT ADDR 
156 BSC E SKIP IF tVfcN 
t% 7 A 3 ONE-Z ADJUST TO A N EVEN ADDRESS 

158 MO L SQFXT STORE |N WpR« AREA POINTER 

■59 * 

^63 I SET HEADER TEST FUR 

J 62 ' * .UNREFERENCED STATEMENT 

^64 * uDX L2 TEXTS INJTJAL.UE TO PRINT PROPER 

165 SfX L2 HTES1 1 *HEADER 

_- ~ -y r" rj r\ «■* -7 

167 JTO 3 OyTFL-Z ZERO TO HEADER OyTP FLAG 

16Q * DELETE EOUIVALENCb STATEMENTS 

170 * EROH STRING 

172 MOVST L.DX 11 SQFS INITIALISE POINTERS 

173 LDX 12 SQFS 

175 I INITIALIZE MOVING OF ONE STATEMENT 

176 MOV'Sl uD 1 L0AD STAIEMENT ID WORD 

177 AND 3 IIF800-Z MASK TQ LEAVE ID CODE 

173 S HAflOO T EST FOR EQUIVALENCE STM^T 

179 BSC ' rlQVS3,Z EJRANCH I* NOT EQUIVALENCE 



SEITE 



131 * EQUIVALENCE STMT»bNC0UNTERED 

182 ♦ T EST IF |T CONTAINS ERROR-MARK 

134 * LD 1 1 rEST lr tQWlVALENCE WITH 

185 S HQFFF *ERROR MARK. 

136 LiSC L, MQVS2, - BRANCH It WITH ERROR MARK 

187 * 

138 * DELETE "IE EQU I V ALENCE"STMT 

18 o fJSl MQVIN HOVE I/P PT TO NEXT STMNT 

190 MDX MQVS1 GO CHECK NEXT STATEMENT 

192 * EQUIVALENCE WJTH fcRRQRMARK 

193 M0/S2 LD 1 2 MOVE ERRUR NOi 

Jos sji C MQVIN MOVE I/P PT TO NEXT STMNT 

196 Up HA008 OUTPUT EKRQR ID 

197 StO 2 « , „ 

198 MDX 2 2 INCR OUTKUT POINTER 

199 MDX M0VS1 00 CHECK NEXT STATEMENT 
"'0 * 

2 oS * STATEMENT OTHER TM A N EQUIVALENCE 

203 * 

204 * 

205 * TEST IF END-STMT 

20 7 M0VS3 lD 1 LOAD STMNT ID WORD 

208 AND 3 HFBQQ-Z "ASK TO LEAVE ID CODE 
20 Q 3 HlflOO TEST FQR END STATEMENT 
2ic BSC L MQVS5, - BRANCH U END STATEMENT 

2i2 1 MOVE ONE STATfcMENj UNALTERED TO 

213 * OUTPUT STRING 

2i5 * LD 1 LOAD STMNT ID WORD 

2i6 AND 3 HQ7FC-Z MASK TO LEAVE WORD COUNT 

2i7 JTQ MCT STORE AS MgVE COUNT 

?1Q MQVS4 D 10 LOAD WORD FROM I/P STRING 

^,J Q yfo 2 ST R E ONfO 0/P STRING 

22i | D x l i INCREMENT STRING POINTERS 

222 MDX 2 1 

223 MDX I MCT, -4 QECREMENl MOVE COUNT 

224 IDX M0VS4 8R IF NO SKJP 

225 MDX MQV31 OR IF STATEMENT MOVED 

227 * END-STATEMENT ENCOUNTERED 

228 M0VS5 uD 1 MOVE END STATEMENT 

229 StO 2 

231 * SET NEW -NDOFSTRING AQDR 

23? MDX 2 1 INCR OUTHUT POINTER 

233 STX U2 EOFS STORE AS*NEW END OF STRIMG 

234 * 

235 * 

236 * BR TO PROGRAM OUTSIDE PRINT AREA 

233 * BSC L. A1011 3R 0UT5IUE PRINT AREA 

23<> * 



se:te 



240 
241 
242 
243 
244 

245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 

25<> 

•60 
^261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
->79 

^-280 
281 
282 
283 
28* 
285 
286 
287 
288 
289 
2^0 
2°i 
2^2 
293 
294 
295 
296 
2 07 
298 
299 



HABOO 
H1000 

HQfTF 

HAD08 

*■ 

* 

* 

* 

MOV IN 



MOV 11 

MCT 

* 

* 
* 
* 
* 
* 

Aiflii 



DC 
DC 
DC 
DC 



* 
A1012 



* 
* 



* 
A1C13 



* 
* 
* 
A1021 



DC 
uD 
AND 
3RA 
DTO 
IDX 
BSC 
DC 



• 'RG 



USl 

LD 

3T0 

BSC 
LDX 

uD 

AMD 
BSC 
MDX 
lD 

AND 

DSC 
LD 



BSI 

3S! 

DC 

BSI 



LDX 

DTK 

uD 
DTO 



LDX 

stx 



/A800 

/iooo 

/offf 

/A008 



CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 



SUBROUTINE 

MQVe INPJT POINTER TO NEXT STMT 

LINK 

i n LOAD STMNT ID WORD 

3 DQ7FC-Z MASK TO LEAVE WORD COUNT 

2 RIGHT JUSTIFY 

MOVU 1 STQRfc IN INSTRUCTION 

i ! *** HOVE INPUT POINTER 

1 ^10V IN RETURN 

>ID CNT FUR MOVING A STMNT 



BjF l-'O FROM HE«E ON IS NOT OVER* 
LAYED IN THIS PHASE 

SEARCH FDR UNREFERENCED STATEMENTS 
INITIALIZE SYmBUL'taBLE POINTER 



L BLKPA 

L SQFST 

3 STPTR-Z 

L EOFST 

L ElOll, 

U SQFST 



BLANK PRINT AREA 
INITLZ SYMBOL TABLE PT 

TEST FOR SYMBOL T B L ENTRIES 
BRANCH II- NONE 
GET POINTER value 



LOAD SYM TBL ID WORD 
TEST IF STMNT NO 
SKIP IF STATEMENT NUMBER 
BR IF NO? 



1 

3 HQ2Q0-Z 

m 

A1013 

1 

3 H0020-Z T EST IF REFERENCED 

L A1013.Z BR IF RtFfcRENcED 

1 i LOAD NAMfc WORD 1 

TEST HEADER AND PRINT 
L MUAME,Z BR IF NOT GENERA T ED LABEL 

L I.MCSP INCR SYM T8L POINTER 

A1012 BR IF NOT fcND OF SYM TBL 
3 HFILL-Z PRINT JF BUFFER HALF FILLED 

SET HEADER TEST FUR 
s UNDEFINED VARIABLES 
L2 r EXT6 INITIALISE TQ PRINT PROPER 
L2 HTES1 1 *HEADER. 
3 ZERO-Z 
3 OJTFL-Z SET HEADfcR INDICATOR 



11 SQFST 
LI STPTR 



INITLZ SYMBOL TABLE FT 



A1022 LD 



SEARCH FDR UNDEFINED VARIABLES 
1 LD SyM TBL ID WORD 



SE.TE 6 

300 AND 3 HA7FC-Z MASK TO WEAVE DEFINE BITS 

301 * 

302 * SKIP IF JNDEFINED VARIABLE 

303 USG Z SKIP IF UNDEFINED 

304 * 

30? MDX m!023 BR IF NOl 

307 * IF NOT, EST FOR HEADER 

306 * MOVE NAME TO PRJNI AREA 

lit * f.'Sl 3 MNAME-Z MOVE NAME TO PRINT AREA 

311 * 



* 



31 3 * MSERT ERRORSWITCH TO PREVENT 

314 * FINAL OUTPUT 

316 * asl 3 CRRSW-Z SET ERROK SWITCH 

318 A1C23 3SI U IMCSP INCR SYM T 8 L POINTER 
31 q ) C A1022 8R IF NOl END OF SYM TBI 

• 2 BSI 3 HFILL-Z PRINT JF BUFFER HALF FILLED 

^521 * 

323 I SEARCH r )R ERROR-STATEMENTS ON STRIN 

325 E10H 3LA ENTRY FROM AlCll 

326 * 

327 * SET HEADER FOR 

328 * .INVALID STATEMENTS, 

330 * LDX L2 T£XT7 INIUaLUE TQ PRINT PROPER 

331 STX L2 HTES1 1 'HEADER, 

332 * 

333 * INITIALIZATION FOR SCAN OF STRING 

334 LDX U SOFS INITIALISE INPUT POINTER 

335 uDX 12 3QFS INITIALISE OUTPUT POINTER 

336 * 

337 LD 3 ZERO-Z ^ERO OUT 

338 3T0 3 STLAB-Z *STOREU LABELi 
^30 3T0 3 STCNT-Z *STORED UOUNTi 

^340 5f0 3 OijTFL-Z *AND HEADER FLAG 

341 * 

343 * PROCESS ONE STATEMENT IN SEARCH FOR 

344 * ERROR STATEMENTS 

345 * 

346 E1021 LD 1 LOAD STMNT ID WORD 

347 STO 2 STORE ON OUTPUT STRING 

348 AND 3 iDMSK-Z MASK TQ SAVE STMNT ID 

349 STO 3 STSID-Z SAVE ID 

35D • D 12 L °AD STMNT ID WORD 
3S3 hND 3 MRMSK-Z EXTRACT NORM 

352 STO 3 MQRM-Z SAVE NORM 

353 * 

354 * DO NOT C'J'JNT »CALL FIO* 
353 * AND -DO TEST. STATEMENTS 

356 * 

3^7 LD 3 3TSID-Z 

3^8 3 3 HDBOO-Z r EST FOR FJO CALL 

359 3SC L E102A, - 3R IK FIU gALL 



SEITE 



360 uD 3 3TSID-Z 

361 :; 3 HC00O-Z TEST FOR DO TEST 

362 3SC I, E102A, -- 8R IF DO TEST 

363 * 

364 * INCREMENT STATEMENT COUNT TO 

3 65 * LAST ENCOUNTERED LABELED STATEMENT 

366 * 

367 1DX L STCNT,! INCR STMNT COUNT 

368 * 

369 * 

370 * STORE OUTPUT POJNIEW 

371 * FOR POSSIBLE DELETION OF THE 

372 * STATEMENT IF IT J S AN 

373 * ERROR-S"ATEMENT 

374 * 

375 E102A 3TX L.2 STOOI STORE UUlPUT POINTER 

376 * 

377 uD 1 

378 iSC F SKIP IF 5TMT HAS NO LABEU 

379 MDX E1022 BR IF JT HAS LABEL 
-80 MDX L1024 BR IF NO LABEL 

"-08I * 

382 * IGNORE STATEMENT NUMBER 

383 * IF IT IS GENERATEU BY THE 

384 * COMPILER HAS NAMt !} 

385 * 

386 E1022 LD 11 G£ T NAME FR SYMBOL TABLE 

387 " " HS1 3 GNAME-Z * 

388 LD 3 NAME-Z 

389 DSC L E1023, ■ 3R IF NAME 

390 * 

391 * 

392 * STORE ST^EMENT NUMBER 

393* * AMD INITIALIZE REFERENCE COUNT TO 

394 * THAT STATEMENT 

395 LD 11 SAVE STMNT NUMBER 

396 3T0 3 STLAB-Z 

397 LD 3 ZERO-Z ZERO TQ STORED COUNT 
•tqq "*TO 3STCNT-Z 

"09 E1023 MDX 1 1 " IMCREMENi STRING POINTERS 

■^0 MDX 2 1 
401, MDX L MQRM,~4 DECREMgNl WORD COUNT 

402 E1024 LD 3 3TSID-Z LOAD STMiNT ID 

403 " S 3 LRRID-Z TEST FOR ERROR ID 
I.JSC - SKIP IF NOT ERROR-STHT 
MDX H051 BR IF 6RK0R S""MNT 



404 
405 

406 * 

407 * TgST IF IJATA-STATfcMENT 

408 * 

40^ DTAll uD 3 STSID-Z LOAD STMNT ID 

410 S 3 HF8Q0-Z TEST IF UATA STMNT 

411 HSC L E1031,Z BR IF NOT QATA-STMT 

412 * 

4l> < * CHECK THAT DATASTATEMENT DOES NOT 

41 4 * CONTAIN COMMON VARIABLES 

415 * 

416 LD 3 NQRM-Z STORE NOKM 

417 JTO STONO 

418 JTX 1 DTA21 1 SAVE POINTER 

419 * 



SEiTE 



420 * MOVE PO: ITER TO NfcXT DATAGROUP IF AN 

421 * 

422 DTA12 MDX 1 1 MOVE POINTER 

423 MDX L ST0N0,-4 

424 DTA13 LD 1 INSERT CONSTANT LENGTH 

425 AND H0007 * 

426 STO CQNSC * 

427 * 

42 a * MOVE PO! JTER PAST TME CONSTANT 

429 * 

430 DTA14 HDX 1 1 I^CR STRING POINTER 

431 HDX L ST0N0 f -4 DECK WP WNT AND CON LENGTH 
43? MDX L CQNSC,-! SKIP WHEN CON MV COMPLETE 

433 MDX UTM4 LOOP BACK 

434 * 

435 * MOVE POT. ITER TO NfcXT NAME 

436 * 

437 DTA15 MDX 1 1 INCR STRING POINTER 

438 MDX L ST0N0,-4 DECR WQRU COUNT 

'40 I ""EST IF 1AME IN COMMON 

^441 * 

442 u d 1 U GET NAME FKOM SYH T8L 

443 BSI 3 GMAME-Z * 

444 LD 3 GNAM4-Z GET SYM TBI, I D WORD 

445 SLA 2 

446 8SC I. DTAER,Z 8R IF IN COMMON 

448 I MOVE POINTER TO NfcXT NAME IF ANY 

449 * 

450 uD 1 LOAD NAMfc POINTER 

4^2 BSC L DTA17,- 8R IK NO D JSRUCEMENT AFTER 
453 1DX 1 1 IMCR STRING POINTER 
4*4 MDX L ST0N0,-4 DECR WORU COUNT 

455 DTA17 U D STONO 

456 BRA 3 

457 DSC L DTA21, ~ BRANCH END OF STATEMENT 

45ft LD 11 

"t«39 BSC U DTA12,- BRANCH fcNp QF VARJAPLES 

w 46() | DX DTAl5 go HOVE TO NEXT NAME 

46? * RESTORE : j OINTER| bRANQH TO OUTPUT 

463 * DATASTATEMENT UNALTERED 

465 DTA21 LDX LI *«* RESTORE KOJNTER 

466 MDX E1031 3R To Q/K DATA STMNT 

468 * REPLACE UATAST ATEMENT BY AN 

469 * ERRQRSTA'EMENT 

470 * 

471 * 

472 * MQVE POI ITER TO NfcXT STATEMENT 

474 DTAFR MDX 1 1 INCR STRjNB POINTER 

475 J ~ IDX L STONO, -4 DECR CNT, SKJP WHEN ZERO 

476 MDX DTAER LOOP TO MOVE POINTER 
47 7 * 

478 MDX 1 -2 DECR POINTER BY 2 

479 L D ERID 3UILD AN EHRQR STMNT 



SEiTE 



480 
481 
482 
483 
484 
485 
486 
487 
488 
48 c » 
49D 

491 
492 
493 
494 
495 
496 
497 
498 
499 
"0 

502 
503 
504 
505 
506 
507 
508 
50 l) 
510 
511 
512 
513 
514 
515 
516 
517 
518 

521 
522 
523 
524 
525 
526 
527 
528 
52 Q 

530 
531 
532 
533 
534 
535 
536 
537 
538 
539 



* 
STONO 

codsc 
duplc 
ertyp 

ERlD 
H0H07 

* 
* 
E1C31 



* 
* 
* 

* 



E1051 



* 

* 

* 

■k 



* 



E1052 



* 
• 



3T9 
LD 

:idx 

DC 
DC 
DC 
DC 
DC 
DC 



LD 
3T0 

IDX 
DDX 
MDX 

1DX 

un 

BSC 
IDX 



LD 
US I 



BSI 



OS I 

LD 

BSI 



LD 
BSI 
i IDX 

DSI 
uD 
BSC 
'IDX 



LDD 

JTD 
MDX 



1 

ERTYP 
1 1 

F.1051 





81 

/A008 

/0007 



3 
3 



STORfc ONIO I/P STRING 
LOAD EKRUR TYPE CODE 
STORE ON(0 I/P STRING 

8R to prJnt error stunt 

STORED NURM 
CONSTANT LENGTH 
DUPLICATION FACTOR 
ERROK TYKE CODE 
ERROR JD 
CONSTANT 



flQVE STATEMENT UNALTERED TO OUTPUT 

STRING 



1 

2 

1 1 

2 1 
L N 



LOAD WQRU FRQM I/P STRING 
STORE QNfo O/P STRING 
INCR STR.I.NB POINTERS 

QRM*-4 COUNTDOWN 

1031 8R IF NOI END OF STMNT 

TSID-Z LOAD STOKED JD 

NDID-Z TEST IF END OF STRING ID 

2011, - BRANCH ll END OF STRING 

1021 8R IF NO? 



PRINT ONE ERROR MESSAGE 

SET ERRORSWITCH TU PREVENT 
FINAL OUTPUT 

3 TWO-Z 

3 ERRSW-Z SET ERROH SWITCH ON 



TEST IF IEADEK IS PRINTED 

3 HTEST-Z PRINT HEADER IF FIRST TIME 

ilQVE ERR )R MESSAGE TO PRINT AREA 
3 TQPAB-Z OUTPUT BLANK 

"7 f 7 

3 TQPAU-Z OUTPUT C 

ERROR TYPE. TO PRINT AREA 

1 1 LOAD ERRUR CODE 

3 C0N3D-Z GO OUTPUt AS 3 DECML DIGITS 

L PAP#"3 BACK UP * R i NT AREA POINTER 

"3 TOPAB-Z BLANK OU? READING ZERO 

3 STLAB-Z LOAD STOHEO LABEL 

Z SKIP IF STORED LABEL IS ZER 

E1061 BR IF NOT 

L-BC ZEROS TO 

..ABEL SPAUE IN PRINT AREA 

3 FZERO-Z FJVg ZEKOS 
3 MAME-Z ZERO OUT NAME 

E-1061 1 GO OUTPUI BLANK NaME 



SE.TE 10 

540 * LAST ENCO'JNTEREO STATEMENT NUMBER 

541 * TQ PRIN* AREA 

542 * 

543 E1061 I-JSI 3 GNAME-Z PUT L.AST STMNT NO- IN NA1E 

544 JTX 1 STXR1 1 SAVE I/P STRING POINTER 

545 LDX LI HAME-1 SET POJNTER TO NAME-1 
54* uD 3 PAR31-Z 

547 3T0 3 PAP-Z SET PRNT AREA PT TO 31 PQS 

548 BSI 3 MNAME-Z LAST STMNT NOt TO PRNT AREA 
540 STXR1 LDX Ll *«* RESryRg \/f STRING POINTER 
55d LD 3 STCNT-Z LOAD REFERENCE COUNT 

551 USC L L1073, -• BR IF REFERENCE COUNT 

652 * ZEHO 

553 * 

R54 * 3TATEMEN NUMBER KEFERENCE COUNT 

555 * T PRIN" AREA 

55ft * 

5^7 SIDX L PAP#"2 OECR PRINT AREA PT BY 2 

55B LD 3 PLUS-Z 
559 USI 3 TQPAU-Z OUTPUT 
'60 LD 3 STCNT-Z 

^561 BSI I, CQN3D OUTPUT REFERENCE COUNT 

562 E1073 LDX 2 

563 lD X 3 -13 SET TO OUTPUT 26 CHARS 

564 LOOPP LD U3 TgXT8 13 ERROR Al STATEMENT NUMBER 

565 GRT '3 

566 SLA 8 

567 ^TO L2 BJF 5 OUTPUT LEFT CHARACTER 

G\ A ft : * 1 T 1 jL 

569 s T o L2 BUF 6 OUTPUT KI6HT CHARACTER 

570 MDX 2 2 

573 '1 D X 3 1 SKIP WHEN MSG COMPLETE 

572 i!DX LOOPP LOOP UNT.IL ALL OUTPUT 

C77 v\ y 1 "^ " 7 

574 BSI 3 HFILL-Z PRINT fcRKOR MESSAGE 

575 E1U82 MDX 1 2 INCRfcM POINTER 

576 * LDX 12 3T00I RESTORE X2 TO DELETE ERROR 

577 * ' STATEMtNT 

578 BSC L E1021 GO PROCESS NEXT STATEMENT 
179 * 

^"580 * 

581 E2011 SLA ENTKY FROM E1331 RTN 

582 * 

583 * INSERT END OF STR.1.N8 

584 * A N COMMUMIC AREA 

536 3TX L2 EOFS SET £ND UF STRING INTO FQOM 

587 * 

588 * 

58 o * T £ ST IF OVERLAP EKRUR 

590 * 

591 LD L ERROR LOAD ERRUR SW FROM FCOM 
59? BSC L L2020,E 8R IF QVbRL.AP ERROR 

593 ,JDX E2021 BR IF NOT 

594 * 

50s * PRINT OVERLAP ERRUR MESSAGE 

596 E2020 USI L BlKPA BLANK PRINT AREA 

597 ; DX L2 TEXT3 SET UP OVERLAP MESSAGE 
5QH JTX B2 HTESln-1 MODIFIES WD CT ADDR 
590 LD 3 TERO-Z FORCE MESSAGE OliTPUT 



se.te 11 



600 
601 
602 
60 3 
6Q4 
605 
606 
607 
608 
60 c » 
610 
611 
612 
613 
614 
615 
616 
617 
618 
61" 
20 

^621 
622 
62^5 
624 
625 
626 
627 
628 
62 9 
630 
631 
632 
633 
634 
635 
636 
637 
638 
>3<? 

W 64Q 
641 
642 
643 
644 
645 
646 
647 
643 
64'? 
650 
651 
652 
653 
654 
655 
656 
65 7 
65H 

65 C) 



3T0 

as i 

********** 

* 

******* * * * 

E2021 ^D 

BSC 
LD 

use 

* 



3 OJTTL-Z 
3 HTEST-2 

************* 



oRINT QVtR^AP MESSAGE 

*************************** 



* 
UTUDL 



LDX 

six 

LD 

STO 

QSI 
BSC 



* 
UT'JDM 



* 

***** 

* 

* 

* 

* 

* 

RICH 



LDX 

sfx 

LD 

STO 

BSI 

LD 

3TO 

MDX 

***** 



* 
R1012 



LD 
STO 

wD 

AND 

sfo 

LD 

STO 

LD 

r\ 

D 

BSC 
LD 

use 



* 
* 
* 
* 

* 



uD 

BSC 

L.D 

dSC 



EST IF OUTP IT IS TO BE SUPPRESSED 

■********#*** *************************** 
L .CCER GET UTAHE/UDISK ERROR WD 
I UTUDM.Z BR IF ON OTHERWISE SEE IF 
I ERROR OTHfcR ENRORS HAVE OCCURRED 
L R1QU,*~ EXIT HQUT{NE IF NOT 



PRINT OU'PUT SUPPRESSED MSG 



L2 TEXT4 
L2 HTES1+1 
3 ZERO-Z 
OJTFL-Z 
HTEST-Z 
EXIT 



CT 



o 
3 



L2 T EXT2 

L2 HTES1+1 

3 ZERO-Z 

3 OJTFL-Z 

3 HTEST-Z 

3 THO-Z 

L ERROR 
UTUDL 



GET EBC MSG AND WD 

PUT IT IN ROUTINE 

GET A CHEAP ZERO INTO OUTF 

SO THAT'HTEST WILL PRINT 

GO SET UP TO PRINT 

EXIT TO'CALL NEXT PHASE 

GET UTAHE AND UDISK MSG 

PUT IT In routine 

GET A CHEAP ZERO INTO OJTF 
SO THAT HTEST HILL PRINT 
GO SET UP TQ PRINT IT 
GET A TfcO INTO ACC AND 
SET ERROR ON FOR OUTPUT 1, 
BR BACK"TO PRT OTHER HSQ 



■* ************************************** 

REARRANGE THE STRiNB BY PLACING 
FORMAT-STATEMENTS AND ARJTH 
STMT-FUr!criON*STA'EMENTS IN THE 
LOW-ADDRESS END Of THE STRING 

L S0FS 
3 PTR-Z INITIALISE POINTER 

[ PTR 

3 !<F800-Z EXTRACT ID 

3 STSID-Z SAVE ID 

3 ZERO'Z SET PASS SWITCH FOR 

S.JITC *FJRST PASS 

3 STSID-Z T EST FOR END STATEMENT 

3 EMDID-Z 
I D10O9, - BR IF fcNU-STATEMENT 

SWITC LOAD PAS& SWJTcm 
L D1015, - 3R IF FIHST PASS 

SECOND PASS 

"EST IF FORMAT OR AH ITH-STMT-FUNCT 

3 STSID-Z r EST FOR FORMAT STATEMENT 
FQRMT 

L R1013, - BR IF FOHMAT 

3 STSID-Z TEST FUR AHITH STMNT FUNC 

3 HD000-Z 
L Hi0l3, - BR IF AR.iTM STMNT FUNC 
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660 * 

661 * iUT IN CV.RD SYSTEM 

663 * IDX R1021 QO TEST IF END STMNT 

664 * 

665 * TJRST PASS 

667 D1C15 LD 3 STSID-Z TEST FOR DEFINE FILE STMNjT 

//o c DFILE 

66<> USC L R1013, - 8R IF DEMNE FILE 

6 70 S DATA TEST FOR DATA STMNT 

671 USC L R1013, - BR IF OAIA STMNT 

672 * 
67 3 * 

674 * IF SUBPROGRAM, AL&O DISREGARD 

6 75 * LOADER-OVERLAY STATEMENTS 

677 * LD 3 STSID-Z LOAD STOWED ID 

67a J 3 HD83Q-Z TEST FQR INTERVAL 0/P^FM^ 

679 " "" "~ "*"" " 



S c Z SKIP IF POSSIBLE LDR STMVJT 

30 l-IDX R1021 BR IF NO? 

^* 81 ! D L SQRF r EST IF SUBR OR FUNCTION 

68 ? p, S c , SKIP IF SUBPROGRAM 

683 HDX R1021 8R IF NO! 

68^ R1C13 BSI UOVP -10VE POINTER To NEXT STMT 

686 m D x R1012 GO CHECK IF END STATEMENT 

688 R1021 LD 3 PTR-Z ^OAD POINTER 

68 g jtO 3 RALO-Z INSERT REARRANGEMENT AREA 

690 * LOW ADDRESS 

6 Qi R1Q22 BSI MQVP MOVE POINTER To NEXT STM\)T 

692 3' 3 ErtDID-Z TEST IF tND STATEMENT 

6 <?3 USC L D1099, - 9R IF ENU-STATEMENT 

695 * NOT IN C/,RD SYSTEM 

A.Q ft jf 

697 LD SWITC TEST PASS SWITCH 

6 9fi BSC L D1026,Z BR IF SECOND PASS 

j90 * 

^-7 * FIRST PASS 

70? D1025 LD 3 STSID-Z TEST,FJRST PASS 

70 - 5 s 'jFILE TEST IF UEFINE FILE STMNT 

704 BSC L R1023, - 8R IF DEMNE FILE 

705 s data test if data statement 

706 BSC L R1023, - BR IF DA1A STATEMENT 

707 HDX R1022 GO MOVE TO NEXT STATEMENT 

7 ° 8 * 

70 Q * SECOND PASS 

711 D1026 SLA TEST, SECOND PASS 

712 * 

713 LD 3 STSID-Z 

714 6 FQRMT TEST IF FORMAT STATEMENT 

715 BSC L R1023, - BR IF FOKMAT STATEMENT 

716 LD 3 STSID-Z 

717 S 3 HD000-Z r EST IF ARJTH STMNT FUNCT 

718 BSC L R1022,Z BR IF NOf ARJTH STMNT FU\|CT 

719 * 
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720 * TClRMAT CM ARITH SlMT FUNCT 

721 * ENCOUNTERED* PREPARE REARRANGEMENT 

722 * 

723 R1C23 LD 3 NQRM-Z INSEHT ROTATE COUNT 

724 GTO R1031 1 

7 2 5 A 3 !>TR«Z INSERT RtARR^AREA HIGH ADR 

726 GTQ R10 34 1 

727 JTO R1035 1 

7?H s 3 o^E-Z INSERT RfcARR^AREA HIGH ADDR 

729 SfO R1033 1 

730 A 3 OME-Z 

733 n 3 RALO-Z INSERT RfcARR*AREA LENGTH 
732 3T0 R1032 1 NEGATjVt 

734 3 R1032 1 SET LENGlH POSITIVE 

735 5T0 RIO 32 1 

736 * 

737 * tlQTATE REARRANGEMENT AREA 

738 R1031 uDX U2 *«* INITIALS ROTATE COUNT 

739 R1032 uDX LI *«# INJUAUUE .ROTATE ONE, 

"MO * 

^41 * ROTATE REARR AREA BY ONE WORD 

742 R1C33 uD L *** REARR ARtA HJGH ADDR 

743 ,TE 16 

744 R1034 -D LI *,* ^EARR ARtA HjGH ADDR 1 

74A R1C35 JTO Ll +t* ^EARK ARtA HJGH ADDR 1 

748 ; )Dx R!034 BR IF ,RUTATE ONE. NOT CQMP 

750 * rtDX 2 -1 ROTATE COUNT 

751 mux R1032 IF NOT ZfcRQ, 3R TO , ROTATE 

752 * " ONE. 

753 * 

754 * ROTATE COMPLETED 

7 *?6 LD 3 RALO-Z INCR REA k R AREA LOW ADDR 

757 >\ 3 ilORM-Z BY LENbTH QF FORMAT ST^T 

7*58 3T0 3 RALO-Z 

-.^g 3T0 3 PTR-Z REARR-ARtA LOW A DDR TO PTR 

V 60 !i D X R1022 GO MOVE IO NEXT STATEMENT 

7 61 * „ 

762 FORMT DC /6000 CONSTANT 

763 * 

764 * NOT IN CARD SYSTEM 

765 * 

766 D1G99 LD SWITC LOAD P*SS SWjTCH 

767 BSC L EXIT.Z BR IF SEUOND PASS 
76R HDX L SHITC,1 CHANGE PASS SWITCH 
76 g LD 3 RALO-Z REARRANGEMENT AREA LOW 
770 STO 3 PTR'Z *ADDHESS Ty POINTER 

77! „ D LINK SET LINK APDR IN SUBROUTINE 

772 JTO HOVP 

773 MDX rijVPl 3R Tg SUbR 

774 * 

775 LINK DC R1012 CONSTANT 

776 DFILE DC /P000 STMT IP UEFINE FILE 

777 DATA DC /F800-/r.lC CONSTANT 
77R SWITC DC PASS SWHCH 

77 ; ;> * 
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780 
781 
782 
783 
784 
785 
786 
787 
788 
78^ 
790 
791 
792 
793 
794 

795 
796 

797 

798 
799 

•,00 

^801 
802 
80 3 
804 
80 5 
80 6 
80 7 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
319 

w 820 
821 
822 
823 
824 
825 
826 
82 7 
826 
82^ 
830 
831 
832 
833 
834 
835 
836 
83 7 
838 
839 



* 
* 
* 
MOVP 



MOVP1 LD 
AND 
SRA 
STO 

uD 

AND 

sto 

BSC 



MOVE POINTER TO NEXT STATEMENT 

STORE STATEMENT* I U AND NORM 
3TATEME!! -ID TO A-REGJSTER 

UC LINK 

lD I PTR set in WURp this statememt 

AND 3 rlQ7FC-Z EXTRACT NOHM 
SRA 2 ^?IGHT JU&TJFY 

3 PTR'Z ADVANCE KT TO NEXT STMNT 

3 PTR-Z 

PTR QET ID WURU NEXT STATEMENT 

3 HQ7FC-Z EXTRACT AND STORE NORM 



3 MQRM-Z 
i PTR 
3 HF800-Z EXTRACT AND STORE ID 

3 'JTSID-Z 
I MQVP RETURN 
******»*****-***•****#***************************** 

* COMPILATION! STATUS MtSSAGES 



• * * ******* *• ****##***# •'■ "■ * 



************************** 



* 
TCXT2 

TEXT3 

TEXT4 

texts 

TEXT6 

TEXT 7 

TEXT8 

* 

****** 

* 

* 

* 



DC 

uBC 

DC 

UBC 

DC 

XBC 

DC 

EBC 

DC 

UBC 

DC 

EBC 

EBC 



3 WORD COUNT 
• UTAPE/U ">ISK BOTH SPECIFIED, 
: 6 WORD COUNT 
.PROGRAM LENGTH EXCEEDS CAPACITY 
L3 WORD COUNT 
•OUTPUT IAS BEEN SUPPRESSED. 
L2 ^ORD COUNT 
.UNREFERENCED STAIEM.ENTS . 
LQ WORD COUNT 
.UNDEFINED VARIABLES , 
) WORD COUNT 

■ INVALID STATEMENTS, 
. ERROR AT STATEMtNT 



NUMBER* 



«r *************** J'************************** 1 



INvSP DC 
LD 
AND 
BSC 
LD 

A 

7*1 

STO 

BSC 

LD 
* 

STO 

LDX 

IHCSl BSC 

IMCS2 MDX 



SUBROUTT 
I'jCREMEf! 



} 3TPTR 

3 MiBOO-Z 

7. 

3 MFFFD-Z 

3 HFFFD-Z 

3 3TPTR-Z 

3 STPTR-Z 

L EQFST 

L IM.CS2, 

I MCSP 

INCS1 1 

II 3TPTR 

L *** 

L INCSP,1 



' SYMBOL lABLE POINTER 
LINK 

get id wu jn symbol table 
extract Dimension bits 
skip if not dimensioned 
minus thkee 

position symbol tg pointer 
*past dimensioned Variable 

TEST FOR END Of SYMBOL T9L 

8R if enu of symbol table 

IF NQT,RfcTURN TO ADDRESS 
*SPEClFItD IN LINK 

MODIFY fcXjT 
POINTER To XI 
RETURN 

IF END Oh SYMT, RETURN TO 
ADOR LJNK 1 
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840 BSC I IMCSP RETURN 

841 * 

842 * 3JBR0UT! IE 

843 * CONVERT BINARY VAUUfc TO 

84 4 * ~HREE DECIMAL DIGITS 

845 * 

846 C0I3D DC LINK 

847 3R T 1$ SHIFT ARGUMENT TO EXTENSION 

848 ) 3 C100-Z -GET P I K S 1 UlGlT 
84 o BSI GOSTO STORE: FlKST DIGIT 

8 5 n lD 3 Z«Z „.„,, 

851 i 3 CiO-Z GET SECOND DIGIT 

8 52 USI GOSTO STORE SECOND DIGIT 
8-S3 SLT 16 GET THJRU DIGIT 
8^4 BSI GQSfO STORfc THjRD DIGIT 

855 HSC 1 C0N3D RETURN 

856 GOSTO DC lI NK „ t „ t , 

8 57 SLA LEFT jySl IFY DIGIT 

8 58 OR 3 IIFOOO-Z CONVERT 10 E8C 

8 5Q s T o I PAP STORE INI PRINT AREA 

o~ 6D | DX L PAP#1 INCREMENT PR AREA POINTER 

—61 BSC GOSTO RETURN 

862 * 

863 * 3IJBR0UTI IE 

864 * HEADER "EST 

86^ * PRINTS HEADER TO bRHOR 

866 * MESSAGES IP FIRST~MfcSSAGE 

867 HTEST iJC *•# LINK TO CALLING POINT 1 
86« LD 3 OUTFL-Z LD OUTPUT FLAG 

86 q BSC L HTES3.Z EXIT KOUTJNE IF FLAG IS ON 

870 iDX L UUTFL,1 ELSE SET FLAG ON AND CO^T 

871 U D 3 PAPIN-Z LD INJT APDR OF PRINT AREA 

872 STO L AREA STOKE AUDK QP AREA HERE 

873 LD 3 D6Q-Z LD A WORD COUNT AND STORE 

874 STO L WQCNT IT JN BUF»i 

87 p; BSI L PRINT PUT A BUNK LINE ARQVE HDR 

876 * 

87 7 * 

878 HTES1 LD* I? *"* LD A WORD COUNT IN XR2 

79 * *M0UIFJABLE 



(i 



STX L2 WDCNT STORE IN JN WORD COUNT 



835 SLT 32 Z E«0 THE A AND THE Q 

88? LDX 3 ZERQ XR3 

883 wD HTESi 1 LD THE ADUR OF MSG WD COUN 

8 84 a ONE INCREASt JT BY ONE 
83f, STO * 1 PUT IT AWAY IN HTES2 1 
886 * 

83> HTFS2 LD L »-* LD THE "SB WORD 

R 8B SRT 3 PUT RJGMT HALF IN THE Q 

88 o SLA B LEFT JU§TJFY THE LEFT HALF 

890 STO L3 BUF STORE UNPACKED WORD 

893 3LT '6 p UT RIGHT HALF BACK IN A 

89? STO L3 B!JF 1 STORE UNPACKED WORD 

893 IDX 3 2 INCREMENT XR3 BY TWO 

8 94 MDX L HTES2+l,i INCREMENT MSG ADDR BY ONE 

8 95 IDX 2 -1 DECREMENT WQP-D COUNT 



896 MDX HTES2 GO UNPACK ANOTHER MSG WORD 

898 * uDX 13 Z RESTORE XR3 TO TRL DISP 

8 99 uD 3 PAPIN-Z LD INT ADDR OF OUTPUT AREA 
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90 3TO 

901 BSI 

902 * 

903 BSI 

904 HTES3 BSC 

905 * 

906 * 

907 GNAME DC 
90 « AND 

909 SfO 

910 LD 

911 S 

912 J 

913 Z 

914 A 

915 otO 

916 A 

917 SjO 

918 A 
91 f ' STO 

20 GNAMO LD 

^21 * 

922 3T0 

923 GNAM1 uD 

924 * 

925 SfO 

926 GNAM2 ~D 

927 * 

926 3T0 

92<> OsC 

930 NAME DEC 

931 * 

932 GNAM3 DC 

933 GNAM4 DC 

934 * 

935 * 

936 HC7FC DC 

937 HF8Q0 DC 

938 RALO DC 
">39 PTR DC 

w 940 * 

941 * 

942 C10 DC 

943 C100 iiC 

944 C120 DC 

945 HFFFD DC 

946 H0C08 DC 

947 HOC 20 DC 

948 PAP DC 

949 PAP IN DC 

950 H18Q0 DC 

951 STOOl ^C 

952 HA7FC DC 

953 H0200 DC 

954 ZERO DC 

955 Z tQU 

956 ONE DC 
95 7 TWO DC 
958 THREE DC 
95 £ > FOUR DC 



L AREA 
L PRINT 

3 BUKPA-Z 
I HTEST 

GET SyM, 



G.MAM3 

GxjAHl 1 
L S0F3T 

GNAM1 1 

G.jAMl 1 

GMAH1 1 
3 THREE-Z 

G.JAMO 1 
3 05JE-Z 

GMAH1 1 
3 OjE-Z 

GNAH2 1 

L *m* 

GS|AM4 

mame 

L *m + 

ilAME 1 

I gname 



/07FF 





/Q7FC 
/F8Q0 






10 

100 

120 

/FFFD 

/Q008 

/0020 

B'JF 

BUF 

/1800 

/A7FC 
/02CO 


ZERO 

/oooi 

/0002 
/0003 
/ 4 



STOKE I r JN AREA 

GO PRJNI THE MESSAGE 

GO PUT tBC BLANKS IN BUF 
EXIT THKOUQH LINK WORD 

. NAME OK (.ABEL 

LINK 

EXTRACT UI5PLACEMENT 

SAVE 

LOAD STAKT OF SYMBOL TB ADD 

COMPUTfc SYMBOL TflL ENT ADDR 



STORfc ID WQRD ADDRESS 

STORE FIKST NAME WORD ADDR 

STORfc SEUOND NAME WORD ADDR 
LOAD 113 WOKD 

•MODIFIABLE 
STORE ID WORD 
LOAD FJRST NAME WORD 

♦MODIFIABLE 
STORfc FIKST NAME WORD 
LOAD SfcCUND NAME WORD 

♦MODIFIABLE 
STORE SECOND NAME WORD 
RETURN 
2 WORD SIOHAGE FOR NAME 

♦MODIFIABLE 
CONSTANT 
SYMBOL TABLE ID WORD 

♦MODIFIABLE 

CONSTANT 

CONSTANT 

REARR ARtA LOW ADDR 

POINTER 



CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 
OUTPUT ARfcA POINTER 
INITIAL'VALUE OF PAP 

CONSTANT 

STORfcO OUTPUT INDEX 

CONSTANT" 

CONSTANT 

CONSTANT 

TRANSFER VfcCTOR PT ADDR 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 
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960 STLAB DC STQRfcD LABEL 

961 STCMT DC & STORED CUUNT 

H\ b J L NUMBER UF STATEMENTS 

963 * FROM LASl LABEL 

o 6 4 nuTFL DC OUTPUT FLAG 

96* ST^ID DC STORED SYmnT-ID 

966 NORM DC STORED NURM 

967 IDMSK DC /F80Q MASK FQR EXTR STMNT-ID 

968 NRMSK DC /Q7FC MASK FQR EXTR NORM 

969 ERRID ">C /A00O ERROR JD 

970 END ID DC /"10 END ID 

972 FZERO DC ' /3QC3 CONSTANT FOR FJV£ ZEROS 

973 DC /0C30 * 

074 STPTR DC SYMBOL TABLE POINTER 

975 HDQOO DC /DODO CONSTANT 

976 HD800 DC /D800 CONSTANT 

977 H4000 DC /4000 CONSTANT 

978 HFCOO DC /F000 CONSTANT 

979 HCCOO DC /CO 

^80 PAR31 DC BJF H CONSTANT 

^81 H3F00 DC /3F00 CONSTANT 

982 PLUS DC /4E00 CONSTANT 

983 C DC /C300 CONSTANT 

984 D60 DC 60 CONSTANT 

985 PCM T DC *«* PR l NT COUNT 

!o7 I SET ERROR SWITCH IN COMMON AREA 

9 8 * TO PREVENT FINAL OUTPUT 

98<-> * 

990 ERRSW DC fi LINK 

992 * LD I- ERROR SET £RRON SWITCH 

993 OR 3 T,jO-Z * 

994 STO L ERROR * 

995 DSC I ERRSW RETURN 

996 * 

997 * subrouti ie 

998 * MOVE MAD.; TO PR IN I AREA 

">99 * 

WOO MNAME DC U LINK 

1001 

10 2 
1003 
10 04 



Del 3 HTEST-Z TEST IF HEADER PRINTED 

RSI TQPAB BLANK TO PRINT AREA 

in ! 1 GET FIRST CHARACTER 

r? s i TQPA OUTPUT FiRgT CHARACTER 

Hl 5 [ D J : . GET SECOND CHARACTER 

10 06 SLA 6 

inn? BSI TQPA OUTPUT StCCND CHARACTER 

X0Q8 LD 1 2 GET THIRU CHARACTER 

10 9 RtE 16 

10in L.D 1 i 

iJlP Rcl T PA OUTPUT THIRD CHARACTER 

± 5 J3 up J, 2 GET FOURTH CHARACTER 

1 JJ 5 [Isl TQPA OUTPUT FUURJH CHARACTER 

1016 ""* * """ ■"'""•"• r " 

1017 SLA 8 

1018 RSI T 
10 i 9 BSI TOPAH OUTPUT ONE BLANK 



LD ± 2 GET P IFTM CHARACTER 

SLA 8 

E S I TQPA OUTPUT FIFTH CHARACTER 
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1020 siSl T QPAB OUTPUT ANOTHER BLANK 

10?? I IMCREMEN T PRINT cguNT 

10 P3 LD 3 PCNT-Z INCRfeMENI PRJNT COUNT 

1024 a 3 H0008-Z *BY 8 

10 25 3T0 3 PCNT-Z 

1026 * 

1027 * TEST IF LINE FULL 

1028 3 3 G120-Z SEE IF LiNE FULL 

l02 O BSC I M-IAME, Z RETURN U LINE NOT FULL 

1030 3SI 3 HFIuL-Z PRINT THiS LjNE 

1031 EJSC 1 M'jAHE RETURN 

1032 * 

1Q34 * CHAR IN'^REG TO HRJNT A REA UNCHARGE 

103? * 

1036 TOPAU DC LINK 

103 



3T0 3T0CH SAVE CHARACTER 



1036 TOPAX LD STOCH LOAD CHAPTER 

1 tq 3T0 T P A p SET INTO PH AREA UNCHANGED 

40 MDX L PAP#1 INCR PRl^T AREA POINTER 
^41 BSC I T OPAU RETURN 

1042 * 

1043 * SUBROUTINE 

1044 * CONCERT CHAR JN A'REG INTO 

1045 * [JBC-CODC THEN MOVE TO PRINT AREA 

1046 * 

1047 TO f, A iJC LINK 

1048 AND 3 M3F0O-Z MASK TO LEAVE CHARACTER 

1049 BSC L TOPA2, - BR IF BLANK 

1050 * 

1051 * NOTE 

i c; ? # IF OTHER SPECJAL CHARACTERS THAN 

1053 * BLANK ARE EXPfcCTEU, TESTING SHOULD 

in54 * OR 3 HC000-Z CONVfcRT 10 EBCDIC 

1056 TOPA1 STO STOCH STORE CHARACTER 
105/ LD TQPA SET UP TO RETURN FROM 
1058 SfO TQPAU *TOPAU 

l5 q ,| D X TQPAX GO OUTPUi CHARACTER 

^60 T0PA2 LD 3 H4Q00-Z LOAD EBCUIC BLANK 

1061 !DX -fOPAl 30 OUTPUi 

1062 * 

1063 TOPAB DC U INK 

1064 3LA 16 LOAD DUHMy BLANK 

106 5 BSI TQPA GO OUTPUI A BLANK 

1066 BSC I -QPAB RETURN 

1067 STOCH B C *»* STORED CHARACTER 

1068 * 

1069 * 

1070 * SUBROUTINE 

1071 * BLANK TO PRINT ARfcA 

1072 * 

10 73 BLKPA DC C LINK 

1074 LD 3 H4000-Z LOAD EBCUIC BLANK 

1075 . D x 3 -120 SET UP TU BLANK PRINT AREA 

1076 BLr.Pl 3T0 L3 BUF 120 PUT EBC' BLANK JN EACH WORD 

1077 IPX 3 1 MOVfc WORD POINTER 

1078 HDX BLKP1 LOOP BACK UNTIL ALL BLAWE 
l Q7q LD x L3 2 SET TRANSFER VECTOR POINTER 
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t 



1030 USC ! BUK p A RETUHN 

ioai * 

1032 * T EST IF HALF FILLtD LINE 

1033 * 1 'J PRINT AREA 

1034 HFILL DC *»* i - INK . „ „„,,*,- 
103^ wD 3 PCNT-Z LOAD PRJNT COUNT 

1086 BSC L W, - RETURN JL *ERO ftBIntM 

1037 >D 3 i'APIN-Z LOAD PRINT AREA ORIGIN 

1088 HfO 3 PAP-Z RESET P R * NT AREA PINTER 

1039 JfO L AREA SET MESSAGE ADDRESS 

1090 uD 3 D60-Z 

ioq3 ;tq l wocnt set wohd count 

109? bsi l print print line 

ino3 3SI BLKPA BLANK PRINT AREA 

1QP4 -LA 16 ZER THb ACCUMULATOR 

1095 ( >TO 3 PCNT-Z ZERO PRINT COUNT 

1096 XllF BSC I HFILL RETURN 

1097 * 

1099 EXIT BSI L ROLRX CALL, DOWN PHASE 22 

00 Dc 22 NEAT PHASE NUMBER 

^tini EiSS 0VERL-**32U*3 PHAS6-21 PATCH AREA 

110 2 END i-'EQ 



